home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_tkcvs.idb / usr / freeware / lib / tkcvs / commit.tcl.z / commit.tcl
Encoding:
Text File  |  1999-04-16  |  1.9 KB  |  76 lines
  1. #
  2. # Tcl Library for tkCVS
  3. #
  4.  
  5. # 
  6. # $Id: commit.tcl,v 1.11 1995/11/22 00:16:42 davide Exp $
  7. #
  8. # Set up a small commit dialog.
  9. #
  10.  
  11. proc commit_setup {} {
  12.   global cvsglb
  13.  
  14.   toplevel .commit
  15.   frame .commit.left
  16.   frame .commit.right
  17.   frame .commit.down -relief groove -border 2
  18.  
  19.   pack .commit.down -side bottom -fill x
  20.   pack .commit.left -side left -fill y
  21.   pack .commit.right -side left -fill both -expand 1
  22.  
  23.   label .commit.lvers -text "Version Number" -anchor w
  24.   label .commit.lcomment -text "Comment" -anchor w
  25.  
  26.   entry .commit.tvers -relief sunken -textvariable version
  27.   text  .commit.tcomment -relief sunken -width 70 -height 10 \
  28.     -wrap word -border 2 -setgrid yes
  29.  
  30.   # bind_motifentry .commit.tvers
  31.   # bind_motiftext  .commit.tcomment
  32.  
  33.   pack .commit.lvers .commit.lcomment -in .commit.left \
  34.     -side top -fill x -pady 3
  35.  
  36.   pack .commit.tvers -in .commit.right \
  37.     -side top -fill x -pady 3
  38.  
  39.   pack .commit.tcomment -in .commit.right \
  40.     -side top -fill both -expand 1 -pady 3
  41.  
  42.   button .commit.ok -text "OK" \
  43.     -command {
  44.       cvs_commit $version [.commit.tcomment get 1.0 end] $cvsglb(commit_list)
  45.       if {$cvscfg(auto_status) == "true"} {
  46.         setup_dir
  47.       }
  48.       wm withdraw .commit
  49.     }
  50.   button .commit.quit -text "Quit" -command { wm withdraw .commit }
  51.  
  52.   pack .commit.ok .commit.quit -in .commit.down -side left \
  53.     -ipadx 2 -ipady 2 -padx 4 -pady 4 -fill both -expand 1
  54.  
  55.   wm withdraw .commit
  56.   wm title .commit "Commit Changes to a Module"
  57.   wm minsize .commit 1 1
  58. }
  59.  
  60. proc commit_run {} {
  61.   global incvs
  62.   global cvsglb
  63.  
  64.   if {! $incvs} {
  65.     cvserror "This directory is not in CVS.\nPlease import it first."
  66.     return 1
  67.   }
  68.  
  69.   # If marked files, commit these.  If no marked files, then
  70.   # commit any files selected via listbox selection mechanism.
  71.   # The cvsglb(commit_list) list remembers the list of files
  72.   # to be committed.
  73.   set cvsglb(commit_list) [workdir_list_marked_files]
  74.   wm deiconify .commit
  75. }
  76.